home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 40 / Issue 40.iso / pc / PCSoftware / HTML Tool 3.5 / htmltool.exe / _SETUP.1 / Scrolling Statusbar.scp < prev    next >
Encoding:
Text File  |  1999-10-19  |  1.4 KB  |  50 lines
  1. <HTMLtool>Scrolling text in the statusbar (Place in the HEAD tag)</HTMLtool>
  2. <!-- Remember to modify the BODY tag below -->
  3.  
  4. <SCRIPT LANGUAGE="JavaScript">
  5. <!-- Hide script from older browsers!
  6. function scrollit_r2l(seed)
  7. {
  8.  // 
  9.  // Var m1,m2,m3,m4 can be filled with text of your choice
  10.  // 
  11.  var m1  = "Lorenz";
  12.  var m2  = " says";
  13.  var m3  = " Hello";
  14.  var m4  = " world !";
  15.  var msg=m1+m2+m3+m4;
  16.  var out = " ";
  17.  var c   = 1;
  18.   if (seed > 100) {
  19.            seed--;
  20.            var cmd="scrollit_r2l(" + seed + ")";
  21.            timerTwo=window.setTimeout(cmd,100);
  22.        }
  23.       else if (seed <= 100 && seed > 0) {
  24.            for (c=0 ; c < seed ; c++) {
  25.            out+=" ";
  26.       }
  27.      out+=msg;
  28.      seed--;
  29.      var cmd="scrollit_r2l(" + seed + ")";
  30.      window.status=out;
  31.     timerTwo=window.setTimeout(cmd,100);
  32.   }
  33.     else if (seed <= 0) {
  34.                 if (-seed < msg.length) {
  35.                   out+=msg.substring(-seed,msg.length);
  36.                        seed--;
  37.                    var cmd="scrollit_r2l(" + seed + ")";
  38.               window.status=out;
  39.           timerTwo=window.setTimeout(cmd,100);
  40.   }
  41.   else {
  42.     window.status=" ";
  43.      timerTwo=window.setTimeout("scrollit_r2l(100)",75);
  44.    }
  45.   }
  46.  }
  47. </SCRIPT>
  48. end of hiding for older browsers -->
  49.  
  50. <BODY onLoad="timerONE=window.setTimeout('scrollit_r2l(100)',500);">